home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / QBWIZ12.ARJ / REDIR.ASM < prev    next >
Assembly Source File  |  1991-02-20  |  1KB  |  43 lines
  1. comment #
  2.  
  3.    +----------------------------------------------------------------------+
  4.    |                                                                      |
  5.    |         QBWIZ  Copyright (c) 1990-1991  Thomas G. Hanlin III         |
  6.    |                                                                      |
  7.    |                       QuickBASIC Access Library                      |
  8.    |                                                                      |
  9.    |               assembled with the excellent OPTASM by SLR             |
  10.    |                                                                      |
  11.    +----------------------------------------------------------------------+
  12.  
  13. #
  14.  
  15. public  REDIRECTION
  16.  
  17.  
  18. .model medium
  19.  
  20. .code
  21.  
  22.  
  23.  
  24. REDIRECTION   proc                     ; see if output is redirected
  25.               mov            al,b$IOFLAG    ;
  26.               and            al,2           ; is output redirected?
  27.               jnz            #Redir         ;   yep, set appropriately
  28.               xor            ax,ax          ;
  29.               ret                           ;
  30. #Redir:       mov            ax,-1          ;
  31.               ret                           ;
  32. REDIRECTION   endp                     ; see if output is redirected
  33.  
  34.  
  35.  
  36. .data
  37.  
  38. extb  b$IOFLAG
  39.  
  40.  
  41.  
  42.               end
  43.